home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (10th Edition) / The CD-ROM Directory 10th Edition.ISO / install / inscript.deu < prev    next >
Encoding:
Text File  |  1993-06-28  |  16.2 KB  |  687 lines
  1. ; CD Answer Installation Script - Generic                          jdk,ejf,hg
  2. ; <<CDA>> Jun 1 1993;3.2
  3. ; Apr 8 1993; hs
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;  default destination drive
  38. PARSE_PATH <$CurDir>
  39. SET def_dest = C:\
  40. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  41.  
  42. ;TFPL - 7-6-93
  43. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  44. ;CONFIG ColorSet = 55
  45. ;TFPL
  46.  
  47. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  48. SET def_cdtype = High Sierra
  49. SET def_driver = FS_HSGEN
  50. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  51. SET def_cdtype = ISO
  52. SET def_driver = FS_ISGEN
  53. :ok_driver
  54.  
  55. ;  language
  56. SET def_lang = <$Language>
  57.  
  58. ; application name(s) (4 char ident(s) on CD-ROM)
  59. READFILE names = <ins>\APPLNAME.
  60.  
  61. ; product name (application name for batch file, subdirectory name)
  62. READFILE prod = <ins>\PRODNAME.
  63.  
  64. ; default dest drive and directory
  65. PARSE_PATH <def_dest><prod>.CD
  66. SET dstdrive = <$Drive>
  67. SET path = <$Dir>
  68. CD <dstdrive>\
  69.  
  70. ; read and display Application Installation Screen
  71. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  72. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  73. GOTO show_banner
  74. :no_banner
  75. SET screen =
  76. ----        CD Answer Installation für:\n\n
  77. ----               <prod>\n\n
  78. ----        Applikation(en): <names>
  79. :show_banner
  80. CLEAR
  81. TEXT <screen>
  82. SET screen =
  83. WAIT
  84.  
  85. GOTO okdir
  86. :getdir
  87. CLEAR
  88. TEXT \nFehler:\n\n
  89. ----Der Pfad "<dstdrive><path>" ist nicht zulässig!\n
  90. ----Es muß eine Laufwerksangabe sowie ein gültiger Unterverzeichnisname
  91. ---- vorhanden sein, um die Software zu installieren.
  92. WAIT
  93. :okdir
  94. CLEAR
  95. TEXT Die Retrieval-Software muß auf einer Festplatte oder auf eine\n
  96. ----formatierte Floppy Diskette installiert werden. Die Standard-\n
  97. ----angaben sind Laufwerk C: (normalerweise die Festplatte) und\n
  98. ----Unterverzeichnis <path>. Um diese Angaben zu wählen,\n
  99. ----die ┘ (Eingabe) Taste zweimal betätigen.  Um sie zu ändern, die\n
  100. ----gewünschten Parameter nach Aufforderung eingeben.\n
  101.  
  102. INPUT 6,8,5 dstdrive  = Installieren auf Laufwerk        ?
  103. INPUT 6,10,40 path    = Installieren in Unterverzeichnis ?
  104. SET dest = <dstdrive><path>
  105. SET confile = <ins>\_DW_.CFG
  106.  
  107. IF "<dstdrive>"=="" GOTO getdir
  108. IF "<path>"=="\" GOTO getdir
  109. IF "<path>"=="" GOTO getdir
  110. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  111.  
  112. CD <dstdrive>\
  113.  
  114. IF NOT DIREXISTS <dest> GOTO nopath
  115. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  116. CLEAR
  117. TEXT Das Unterverzeichnis "<dest>" existiert bereits.
  118. NEWMENU 1,3,67
  119. ;TFPL -7-6-93
  120. MENU neue Version und nur Oberfläche installieren
  121. MENU neue Version und alle Sprachoberflächen installieren
  122. ;TFPL
  123. MENU Alte Version löschen; neue Version NICHT installieren
  124. MENU Konfiguration ändern; Software nicht kopieren
  125. MENU Installation abbrechen ohne Änderungen
  126. ENDCHOICES
  127. ;TFPL 7-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Vorhandene <dest> wird gelöscht...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144. ;TFPL
  145.  
  146. CHOICE 2
  147. CLEAR
  148. TEXT Vorhandene <dest> wird gelöscht...
  149. FOREACH name = <names>
  150.  DEL <dest>\<name>*.*
  151. NEXT
  152. DEL <dest>\FS_*.DRV
  153. DEL <dest>\SC_*.DRV
  154. DEL <dest>\PR_*.DRV
  155. DEL <dest>\GR_*.DRV
  156. DEL <dest>\_DW_*.*
  157. DEL <dest>\ADL_MSGS.*
  158. DEL <dest>\DW.EXE
  159. DEL <dest>\UPDATE.EXE
  160. SET ch = 3
  161. GOTO okpath
  162.  
  163. CHOICE 3
  164. CLEAR
  165. TEXT Verzeichnis <dest> wird gelöscht...
  166. FOREACH name = <names>
  167.  DEL <dest>\<name>*.*
  168. NEXT
  169. DEL <dest>\FS_*.DRV
  170. DEL <dest>\SC_*.DRV
  171. DEL <dest>\PR_*.DRV
  172. DEL <dest>\GR_*.DRV
  173. DEL <dest>\_DW_*.*
  174. DEL <dest>\ADL_MSGS.*
  175. DEL <dest>\DW.EXE
  176. DEL <dest>\UPDATE.EXE
  177. IF NOT EXISTS <dest>\*.* GOTO remdest
  178. TEXT <dest> Verzeichnis hat unbekannte Dateien. Verzeichnis nicht entfernt!!
  179. WAIT
  180. GOTO norem
  181. :remdest
  182. RD <dest>
  183. :norem
  184. DEL <dstdrive>\<prod>.BAT
  185. GOTO end2
  186.  
  187. CHOICE 4
  188. SET alter = Y
  189. SET confile = <dest>\_DW_.CFG
  190. GOTO okpath
  191.  
  192. CHOICE 5
  193. GOTO end2
  194. ENDCHOICES
  195.  
  196. :nopath
  197. MD <dest>
  198. IF NOT DIREXISTS <dest> GOTO getdir
  199. ;TFPL 7-6-93
  200.  
  201. TEXT New Installation
  202. NEWMENU 1, 3, 64
  203. MENU neue Version und nur Oberfläche installieren
  204. MENU neue Version und alle Sprachoberflächen installieren
  205. ENDCHOICES
  206.  
  207. CHOICE1
  208. SET ch = 2
  209. GOTO okpath
  210.  
  211. CHOICE2
  212. SET ch = 3
  213. GOTO okpath
  214. ENDCHOICES
  215.  
  216. :okpath
  217.  
  218. ;----------------------------------------------------------------------------
  219.  
  220. IF NOT EXISTS <confile> GOTO no_config
  221. DISP 5,14 Konfiguration wird gelesen...
  222. READCONFIG <confile>
  223. :no_config
  224.  
  225. ;----------------------------------------------------------------------------
  226.  
  227. HSCOUNT hs
  228. IF NOT <hs>==0 GOTO have_hs
  229.  
  230. CLEAR
  231. TEXT FEHLER: Es ist kein CD-ROM Treiber installiert.\n\n
  232. ----Bitte benutzen Sie die vom Hersteller mitgelieferte Installations-\n
  233. ----diskette, um Ihre spezielle Treiber-Software zu installieren,
  234. ---- und wiederholen Sie anschließend dieses Installationsprogramm.\n\n
  235. ----HINWEIS: Durch die Installation des CD-ROM Treibers werden
  236. ---- Dateien auf Ihre Festplatte übertragen und die CONFIG.SYS und die
  237. ---- AUTOEXEC.BAT Dateien verändert. Wenn Sie keine Programme haben,
  238. ---- die das MSCDEX Programm
  239. ---- verwenden, empfehlen wir, MSCDEX aus Ihrer
  240. ---- AUTOEXEC.BAT Datei zu entfernen; diese Software benötigt dieses Programm
  241. ---- nicht.\n\n
  242. ----MERKE: Nach der Installation des CD-ROM Treibers neu booten !!
  243. WAIT
  244. ABORT
  245.  
  246. :have_hs
  247.  
  248. SET msg =
  249. IF <hs>==1 GOTO instOne
  250.  
  251. TEXT Die folgenden <def_cdtype> Treiber sind vorhanden:\n\n
  252. ----Selektieren Sie den <def_cdtype> Gerätetreiber aus der Liste vorhandener
  253. ---- Gerätetreiber mit den  und  Tasten und betätigen Sie ┘ (Eingabe).
  254. ----Betätigen Sie Esc um die Installation abzubrechen.
  255. GOTO :instMore
  256.  
  257. :instOne
  258. SET msg = Ein <def_cdtype> Treiber ist installiert (siehe CONFIG.SYS):\n\n
  259.  
  260. :instMore
  261. HSDRIVER hsname = 25, 6
  262. CONFIG Driver = "<def_driver>=<hsname>"
  263. CLEAR
  264. TEXT <msg>Der selektierte <def_cdtype> Treiber hat den Namen "<hsname>".
  265. ---- Wenn dieser nicht gültig sein soll, betätigen Sie Esc, um die Installation
  266. ---- abzubrechen und überprüfen Sie die CONFIG.SYS Datei.\n\n
  267. ----Diese Software benötigt das Programm MSCDEX.EXE (Microsoft
  268. ---- CD-ROM Extensions) NICHT. Wenn keine anderen Anwendungen dieses Programm
  269. ---- benötigen, können Sie es aus der \AUTOEXEC.BAT Datei entfernen.\n\n
  270. ----Bemerkung: Manche Installationsprogramme fügen das Microsoft CD-ROM Extensions
  271. ---- automatisch in die \AUTOEXEC.BAT Datei ein.
  272. WAIT
  273.  
  274. CLEAR
  275. TEXT <def_cdtype> Treiber wird kopiert...
  276. SET driver_name = <def_driver>.DRV
  277. GOSUB copy_driver
  278.  
  279. ;----------------------------------------------------------------------------
  280. :disp_choice
  281. CLEAR
  282. TEXT Bildschirm Möglichkeiten:\n\n
  283. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  284. ---- betätigen Sie ┘ (Return)
  285.  
  286. NEWMENU ? 6 46
  287. MENU Standard Bildschirm - Keine Grafik
  288. MENU VGA Karte
  289. MENU MCGA Karte
  290. MENU EGA Karte
  291. MENU CGA Karte
  292. MENU Hercules Grafikkarte
  293. MENU Olivetti, AT&T oder Compaq Plasma
  294. MENU Ganzseiten Bildschirme
  295.  
  296. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  297. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  298. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  299. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  300. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  301. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  302. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  303.  
  304. SET Port = N
  305. SET Graphic = N
  306.  
  307. CHOICE 1
  308.  SET scr_type = SC_STD
  309.  SET Port = ?
  310. CHOICE 2
  311.  SET scr_type = SC_VGA
  312.  SET Port = ?
  313. CHOICE 3
  314.  SET scr_type = SC_MCGA
  315.  SET Port = ?
  316. CHOICE 4
  317.  SET scr_type = SC_EGA
  318.  SET Port = ?
  319. CHOICE 5
  320.  SET scr_type = SC_CGA
  321.  SET Port = ?
  322. CHOICE 6
  323.  SET scr_type = SC_HERC
  324. CHOICE 7
  325.  SET scr_type = SC_ATT
  326.  SET Port = ?
  327. CHOICE 8
  328.  SET scr_type = FP
  329. ENDCHOICES
  330.  
  331. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  332.  
  333. CLEAR
  334. TEXT Bildschirm Möglichkeiten:\n
  335. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  336. ---- betätigen Sie ┘ (Return)
  337.  
  338. NEWMENU ? 6 46
  339. MENU Cornerstone FullPage
  340. MENU MDS Genius
  341.  
  342. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  343. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  344.  
  345. CHOICE 1
  346.  SET scr_type = SC_CNRST
  347. CHOICE 2
  348.  SET scr_type = SC_MDS
  349. ENDCHOICES
  350.  
  351. :not_full_page
  352.  
  353. SET extra =
  354. IF NOT "<Port>" == "?" GOTO no_scr_opts
  355.  
  356. CLEAR
  357. TEXT Weitere Bildschirm Möglichkeiten:\n\n
  358. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  359. ---- betätigen Sie ┘ (Return)
  360.  
  361. NEWMENU ? 6 46
  362.  MENU Standard Bildschirm - monochrome oder farbig
  363.  MENU Tragbarer Rechner   - eingebauter monochrome Bildschirm
  364.  IF "<scr_type>"=="SC_CGA" DO MENU CGA                 - alter Farbmonitor "Flimmern"
  365.  
  366. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  367.  
  368. CHOICE 2
  369.   SET extra = P
  370. CHOICE 3
  371.   SET extra = F
  372. ENDCHOICES
  373.  
  374. :no_scr_opts
  375.  
  376. CONFIG Screen = "<scr_type>=<extra>"
  377.  
  378. CLEAR
  379. TEXT Bildschirmtreiber wird kopiert...
  380. SET driver_name = <scr_type>.DRV
  381. GOSUB copy_driver
  382.  
  383. ;----------------------------------------------------------------------------
  384.  
  385. CLEAR
  386. TEXT Drucker Auswahl:\n
  387. ---- Selektieren Sie den Druckertyp mit den  und  Tasten und\n
  388. ---- bestätigen Sie mit ┘ (Return)
  389.  
  390. SET extra =
  391.  
  392. NEWMENU ? 6 46
  393. MENU HP LaserJet Familie
  394. MENU HP DeskJet Familie
  395. MENU JLaser Drucker Controller
  396. MENU Anderer Drucker
  397.  
  398. CHOICE 1
  399.   SET prn_type = PR_PCL?
  400. CHOICE 2
  401.   SET prn_type = PR_DJ?
  402. CHOICE 3
  403.   SET prn_type = PR_JL?
  404. CHOICE 4
  405.   SET prn_type = PR_STD
  406. ENDCHOICES
  407.  
  408. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  409. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  410. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  411. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  412.  
  413. :pr_type_1
  414.  
  415.   CLEAR
  416.  
  417.   GOSUB pr_detail
  418.  
  419.   NEWMENU ? 6 46
  420.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  421.   MENU HP LaserJet Series II, IID
  422.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  423.  
  424.   CHOICE 1
  425.     SET extra = R
  426.   CHOICE 2
  427.     SET extra = X
  428.   CHOICE 3
  429.     SET extra = XG
  430.   ENDCHOICES
  431.  
  432.   GOSUB pr_detail
  433.  
  434.   NEWMENU ? 6 46
  435.   MENU 300 Dpi (  1Mb Speicher)
  436.   MENU 150 Dpi (512Kb Speicher)
  437.   MENU 75  Dpi (256Kb Speicher)
  438.  
  439.   CHOICE 1
  440.     SET prn_type = PR_PCL30
  441.   CHOICE 2
  442.     SET prn_type = PR_PCL15
  443.   CHOICE 3
  444.     SET prn_type = PR_PCL75
  445.   ENDCHOICES
  446.  
  447.   GOTO pr_type_ok
  448.  
  449. :pr_type_2
  450.  
  451.   GOSUB pr_detail
  452.  
  453.   NEWMENU ? 6 46
  454.   MENU HP DeskJet(+)
  455.   MENU HP DeskJet 500
  456.   MENU HP DeskJet 500C
  457.  
  458.   CHOICE 1
  459.     SET extra = X
  460.   CHOICE 2
  461.     SET extra = XG
  462.   CHOICE 3
  463.     SET extra = XG
  464.   ENDCHOICES
  465.  
  466.   GOSUB pr_detail
  467.  
  468.   NEWMENU ? 6 46
  469.   MENU 300 Dpi
  470.   MENU 150 Dpi
  471.   MENU 75  Dpi
  472.  
  473.   CHOICE 1
  474.     SET prn_type = PR_PCL30
  475.   CHOICE 2
  476.     SET prn_type = PR_PCL15
  477.   CHOICE 3
  478.     SET prn_type = PR_PCL75
  479.   ENDCHOICES
  480.  
  481.   GOTO pr_type_ok
  482.  
  483. :pr_type_3
  484.  
  485.   GOSUB pr_detail
  486.  
  487.   NEWMENU ? 6 46
  488.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  489.   MENU HP LaserJet (alle anderen Modelle)
  490.   MENU Canon LBP (alle Modelle)
  491.  
  492.   CHOICE 1
  493.     SET prn_type = PR_JLHP
  494.     SET extra = R
  495.   CHOICE 2
  496.     SET prn_type = PR_JLHP
  497.     SET extra = X
  498.   CHOICE 3
  499.     SET prn_type = PR_JLCAN
  500.   ENDCHOICES
  501.  
  502.   GOTO pr_type_ok
  503.  
  504. :pr_type_4
  505.  
  506.   GOSUB pr_detail
  507.  
  508.   NEWMENU ? 6 46
  509.   MENU 8-bit Zeichensatz (standard)
  510.   MENU 7-bit National Zeichensatz
  511.  
  512.   CHOICE 2
  513.     SET extra = 7
  514.   ENDCHOICES
  515.  
  516.   GOTO pr_type_ok
  517.  
  518. :pr_detail
  519. CLEAR
  520. TEXT Drucker Option:\n
  521. ----   Selektieren Sie die Druckeroption mit den  und  Tasten und\n
  522. ---- bestätigen Sie ┘ (Return)
  523. RETURN
  524.  
  525. :pr_type_ok
  526.  
  527. SET port =
  528.  
  529. NEWMENU ? 6 40
  530. MENU LPT1       Paralleler Drucker # 1
  531. MENU COM1       Serieller Drucker  # 1
  532. MENU LPT2       Paralleler Drucker # 2
  533. MENU COM2       Serieller Drucker  # 2
  534. MENU LPT3       Paralleler Drucker # 3
  535. MENU LPT4       Paralleler Drucker # 4
  536. MENU PRN        Aktueller DOS-Drucker
  537.  
  538. CLEAR
  539. TEXT Drucker Verbindung/Schnittstelle Port Option:\n
  540. ----   Selektieren Sie die Druckerportoption mit den  und  Tasten und\n
  541. ---- bestätigen Sie mit ┘ (Return)
  542.  
  543. CHOICE 1
  544.  SET port = LPT1,
  545. CHOICE 2
  546.  SET port = COM1,
  547. CHOICE 3
  548.  SET port = LPT2,
  549. CHOICE 4
  550.  SET port = COM2,
  551. CHOICE 5
  552.  SET port = LPT3,
  553. CHOICE 6
  554.  SET port = LPT4,
  555. CHOICE 7
  556.  SET port = PRN,
  557. ENDCHOICES
  558.  
  559. CONFIG Printer = "<prn_type>=<port><extra>"
  560.  
  561. CLEAR
  562. TEXT Druckertreiber wird kopiert...
  563. SET driver_name = <prn_type>.DRV
  564. GOSUB copy_driver
  565.  
  566. ;----------------------------------------------------------------------------
  567.  
  568. IF "<alter>"=="Y" GOTO done
  569.  
  570. :read_disk
  571. GOSUB need_disk
  572. ;TFPL 3-6-93
  573. IF "<ch>"=="2" GOTO inst_only_eng
  574. IF "<ch>"=="3" GOTO inst_all
  575.  
  576. :inst_only_eng
  577. CLEAR
  578.  
  579. TEXT Anwendungsdateien und Oberfläche installieren
  580. COPY_OPT <insdrive>\DISK<curdisk>\*.DEU <dest>
  581. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  582. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  583. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  584. COPY_OPT <ins>\_DW_MSGS.DEU <dest>
  585. COPY_OPT <ins>\ADL_MSGS.DEU <dest>
  586. GOTO adl_dw_message
  587.  
  588.  
  589. :inst_all
  590. ;TFPL
  591.  
  592. CLEAR
  593. TEXT Anwendungsprogramme werden kopiert...
  594. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  595. ;TFPL 7-6-93
  596.  
  597. COPY_OPT <ins>\_DW_MSGS.* <dest>
  598. COPY_OPT <ins>\ADL_MSGS.* <dest>
  599.  
  600. GOTO adl_dw_message
  601.  
  602. :inst_only_soft
  603. CLEAR
  604.  
  605. TEXT Installing only software files...
  606. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  607. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  608. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  609. COPY_OPT <ins>\_DW_MSGS.* <dest>
  610. COPY_OPT <ins>\ADL_MSGS.* <dest>
  611. ;TFPL
  612.  
  613. ;Copy adl and dw message files
  614. :adl_dw_message
  615. IF NOT DIREXISTS <ins> GOTO skip_message_files
  616. COPY_OPT <ins>\UPDATE.EXE <dest>
  617. :skip_message_files
  618.  
  619. CALC curdisk = <curdisk> + 1
  620. IF EXISTS <insdrive>MORE GOTO read_disk
  621.  
  622. CONFIG Language = "<def_lang>"
  623. goto DONE
  624.  
  625. :abort
  626. if "<dest>"=="" GOTO nofiles
  627. if "<alter>"=="Y" GOTO nofiles
  628. CLEAR
  629. TEXT \n\n!!! Installation abgebrochen !!!\n\n
  630. ----   Kopierte Dateien werden entfernt...
  631. UNCOPY
  632. :nofiles
  633. CLEAR
  634. TEXT \n\n!!! Installation abgebrochen !!!\n\n
  635. goto END
  636.  
  637. :copy_driver
  638. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  639. CALC curdisk = <curdisk> + 1
  640. GOSUB need_disk
  641. GOTO copy_driver
  642. :ok_copy
  643. COPY <ins>\<driver_name> <dest>
  644. RETURN
  645.  
  646. :need_disk
  647. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  648. :retry_disk2
  649. CLEAR
  650. TEXT Installationsdiskette Nummer <curdisk> bitte einlegen und ┘ betätigen.
  651. WAIT
  652. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  653.  
  654. CLEAR
  655. TEXT Die eingelegte Installationsdiskette Nummer <curdisk> ist ungültig!
  656. NEWMENU ?, 3, 15
  657. MENU Wiederversuchen
  658. MENU Abbrechen
  659.  
  660. CHOICE 1
  661. GOTO retry_disk2
  662. ENDCHOICES
  663.  
  664. ABORT
  665.  
  666. :done
  667. CLEAR
  668. TEXT Konfiguration wird aktuallisiert
  669. WRITECONFIG <dest>\_DW_.CFG
  670. IF "<alter>"=="Y" GOTO end
  671. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  672.  
  673. CLEAR
  674. TEXT \n  Installation beendet!\n\n
  675. ----Eine Stapeldatei wurde im <dstdrive>\ Verzeichnis angelegt
  676. ---- mit dem Namen <prod>.\n\n
  677. ----Um die <prod> Anwendung aufzurufen:\n\n
  678. ----              <prod> ┘ eingeben\n\n
  679. ----Wichtig: Damit dieser Befehl wie angegeben funktioniert, müssen Sie
  680. ---- sich im <dstdrive>\ Verzeichnis befinden oder das Verzeichnis <dstdrive>\
  681. ---- muß in der PATH-Variable angegeben sein.
  682. :end
  683. WAIT
  684.  
  685. :end2
  686. CD <$CurDir>
  687.